* Dieses REXX-Script konvertiert die Zeichen ä,ö,ü,Ä,Ö,Ü,ß.
*
* Dies ist sehr nützlich für Texte, die an einen PC oder Unix-Rechner
* übergeben werden sollen, mit TeX bearbeitet, oder die per EMail
* in eine Gruppe/ein Netz geschickt werden, welche(s) Umlaute verbietet.
*
*/
OPTIONS RESULTS
IF ~show('P',"WRITE") THEN DO
say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
exit 10
END
ADDRESS "WRITE"
'VERSIONCHECK 3848 "UmlautConverter.wrx"'
IF RC~=0 THEN DO
exit 10
END
'GETVAR "_CurrentID"'
ID = RESULT /* GETVAR gibt den ID des aktuellen Fenster zurück, */
/* der von den weiteren Befehlen benötigt wird. */
IF ID=0 THEN DO
MESSAGEOK (Kein Fenster aktiviert !)
EXIT
END
PARSE ARG Type
UPPER Type
IF Type~=TEX & Type~=ASCII THEN DO
'ASK "Dieses Script konvertiert die Umlaute\nin einem Block (wenn markiert)\noder im gesamten Text in die\nangegebene Form..." "German _TeX|_ASCII|_Abbrechen !!! ^" {@VERT @TOMOUSE}'
IF RESULT=0 THEN DO
Type = TEX
END
ELSE DO
IF RESULT=1 THEN DO
Type = ASCII
END
ELSE DO
EXIT
END
END
END
OPENPORT ID /* PrivatePort des aktuellen Fensters öffnen */
Port = RESULT
IF Port="" THEN DO /* 'OPENPORT' gibt "" zurück, wenn Port nicht */
/* geöffnet werden konnte */
LOCKWINDOW ID
END
ELSE DO
INTERPRET ADDRESS Port /* PrivatePort addressieren.Alle Komandos beziehen */
